object fLote: TfLote
  Left = 192
  Top = 124
  Width = 655
  Height = 455
  Caption = 'fLote'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object wwDBGrid5: TwwDBGrid
    Left = 0
    Top = 0
    Width = 641
    Height = 417
    DisableThemesInTitle = False
    ControlType.Strings = (
      'EOF_QTDSEP;CustomEdit;dbQtde;F')
    Selected.Strings = (
      'LMT_CODPRO'#9'26'#9'LMT_CODPRO'#9'F'#9
      'PRO_DESCRI'#9'100'#9'PRO_DESCRI'#9'F'#9
      'PRO_QTDEMB'#9'33'#9'PRO_QTDEMB'#9'F'#9
      'PRO_QTDEMB2'#9'4000'#9'PRO_QTDEMB2'#9'F'#9
      'LMT_LOCEST'#9'10'#9'LMT_LOCEST'#9'F'#9
      'LMT_CODLOT'#9'33'#9'LMT_CODLOT'#9'F'#9
      'SALDO'#9'15'#9'SALDO'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = dsLote
    TabOrder = 0
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    OnDblClick = wwDBGrid5DblClick
  end
  object sqlLote: TSQLQuery
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'PPROCOD'
        ParamType = ptUnknown
      end>
    SQL.Strings = (
      'SELECT LMT_CODLOT, LMT_CODPRO, PRO_DESCRI, PRO_QTDEMB, '
      '      ATS_VALORES(PRO_QTDEMB,  3)  PRO_QTDEMB2,'
      '      LMT_LOCEST , LMT_QTDLOT - LMT_SAILOT SALDO'
      '      FROM F_LOTEMAT, F_PRODS'
      'WHERE LMT_CODPRO = PRO_CODPRO'
      '      AND LMT_QTDLOT > LMT_SAILOT '
      '      AND LMT_CODPRO = :PPROCOD'
      ' ')
    SQLConnection = dm.SQLConnection1
    Left = 232
    Top = 48
  end
  object dspLote: TDataSetProvider
    DataSet = sqlLote
    Left = 272
    Top = 48
  end
  object cdsLote: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'PPROCOD'
        ParamType = ptUnknown
      end>
    ProviderName = 'dspLote'
    Left = 320
    Top = 48
    object cdsLoteLMT_CODPRO: TStringField
      DisplayWidth = 26
      FieldName = 'LMT_CODPRO'
      Required = True
      Size = 26
    end
    object cdsLotePRO_DESCRI: TStringField
      DisplayWidth = 100
      FieldName = 'PRO_DESCRI'
      Required = True
      Size = 100
    end
    object cdsLotePRO_QTDEMB: TFMTBCDField
      DisplayWidth = 33
      FieldName = 'PRO_QTDEMB'
      Required = True
      Precision = 32
      Size = 8
    end
    object cdsLotePRO_QTDEMB2: TStringField
      DisplayWidth = 4000
      FieldName = 'PRO_QTDEMB2'
      Size = 4000
    end
    object cdsLoteLMT_LOCEST: TStringField
      DisplayWidth = 10
      FieldName = 'LMT_LOCEST'
      Required = True
      Size = 10
    end
    object cdsLoteLMT_CODLOT: TFMTBCDField
      DisplayWidth = 33
      FieldName = 'LMT_CODLOT'
      Required = True
      Precision = 32
      Size = 8
    end
    object cdsLoteSALDO: TFMTBCDField
      DisplayWidth = 15
      FieldName = 'SALDO'
      Precision = 32
      Size = 8
    end
  end
  object dsLote: TDataSource
    DataSet = cdsLote
    Left = 360
    Top = 48
  end
end
